MacFormat 1997 April/macformat-049.iso/mac/Demos/Print Artist Demo/PA12-Mac.Dxr/00317.ls

Text File | 1996-10-03 | 255 b | 13 lines

on exitFrame
  global whatSpeed, whatFactor, frameLoop
  if frameLoop = 0 then
    set whatSpeed to whatSpeed + (whatFactor + 18)
  end if
  if the timer < whatSpeed then
    set frameLoop to 1
    go(the frame)
  else
    set frameLoop to 0
  end if
end